home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1991
/
02
/
driver.bas
< prev
next >
Wrap
BASIC Source File
|
1990-09-03
|
739b
|
32 lines
'driver.bas, a test driver for VLABEL.ASM
' Compiled with BASIC v 7.1, switch "/E"
declare function vlabel$(a$)
defstr a-z
restart:
line input "Enter a drive code: "; drive
if len(drive) <> 0 then
let code = ucase$(left$(drive,1))
else
let code = left$(curdir$,1)
end if
on error goto trap
let label = vlabel(drive)
on error goto 0
if len(label) <> 0 then
print "Label on drive " chr$(34) code chr$(34) " is ";
print chr$(34) label chr$(34)
else
print "Drive " chr$(34) code chr$(34) " has no label."
end if
done:
print
goto restart
trap:
print "Cannot read from drive " code ". ";
print "Check door on drive."
resume done